current Module


Uses


Variables

Type Visibility Attributes Name Initial
real(kind=wp), public :: dql(101,100)
real(kind=wp), public :: pdl(100)
real(kind=wp), public :: vzmin(100)
real(kind=wp), public :: vzmax(100)
real(kind=wp), public :: fcoll(100)
real(kind=wp), public :: dens(100)
real(kind=wp), public :: eta(100)
real(kind=wp), public :: dq1(101,100)
real(kind=wp), public :: dq2(101,100)
real(kind=wp), public :: pdc(100)
real(kind=wp), public :: pda(100)
real(kind=wp), public :: ppv1
real(kind=wp), public :: ppv2
real(kind=wp), public :: pdfast(100)
real(kind=wp), public :: dqi0(50,100)
real(kind=wp), public :: dncount(101,100)

Subroutines

public subroutine find_achieved_radial_points(nvpt)

find achieved radial points jbeg-jend

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nvpt

public subroutine dfind(j, i, v, powpr, pil, pic, pia, df, decv, refr, vlf, vrt, ifast)

! adde=zze(dd/dens(j))weight ! e2perp(i,j)=e2perp(i,j)+adde

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: j
integer, intent(in) :: i
real(kind=wp), intent(in) :: v
real(kind=wp), intent(in) :: powpr
real(kind=wp), intent(in) :: pil
real(kind=wp), intent(in) :: pic
real(kind=wp), intent(in) :: pia
real(kind=wp), intent(in) :: df
real(kind=wp), intent(in) :: decv
real(kind=wp), intent(in) :: refr
real(kind=wp), intent(in) :: vlf
real(kind=wp), intent(in) :: vrt
integer, intent(in) :: ifast